.DO Externa! 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Spr1.B1 

> This module contains those sparing routines that must 

> be located in bankl. 
> 

> PROCEDURE InitJSprTbi 

> PROCEDURE LoadJSprTbl 
PROCEDURE SprChkSum 

> FUNCTION Chk^SprChk 

> FUNCTION SpK SpareTab I e ! ndex : BVTE { !r8 } > : 3 BVTES { !rC:E } 

> PROCEDURE UpDate_SprTbi 

> FUNCTION Chk_PassWord : BOOLEftN 

> PROCEDURE Load_Passt4ord< Destination : PTR { ! !rE } > 

> PROCEDURE SpareCounK 2 BITS { !rO/Bits 1:0 > > 
> 

> > > > > > > > > > »>> > > > >>>>>>>>>> > .-- > > 

.LSTOFF 
.FIN 

.DO External 
.LSTON 
.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: lnit_SprTbi 

y 

> BANK 1 PROCEDURE 
> 

> This procedure initializes the spare table, it assumes 

> that there is NO spare table on disk. 
> 

> Inputs: 

> Forma tO ff sat : BS'TE { !r-4 > 

> Format inter Leave : BVTE { !r5 } 

> Outputs: { none } 

> Algorithm: 



> BEGIN 

> SparePuil := $F0783C 1E 

> SpareTmStmp := 

> FOR i := TO LengthX SegPtrftrray ) - 1 DO 

> SegPtrflrrayC i'l.Mil :- True 

> SegPtrfirrayE i l.Ptr := 

> SpareCount := 

> BadCount := 

> FOR i := TO Length C SpareBitNap > - 1 DO 

> SpareBitNap! i ]":= 

> FOR i := TO 1 DO 

> RddSpare< SprThi_Type, Spare, 6etNe«>Spare< Spr< i ) >, Spr< i ) > 

> SparePw2 := $F0783C1E 

> UpDate^SprTbl 

> END 
> 

>>>>>>>>>>>>>>>>>>> » >>>>>>>>>>>>> 
.LSTOFF 
.FIN 
.DO internal 





.LSTON 






.Page 






.FIN 




InitJSprTbl: 








Ld 


!r2,*.HIBYTE. Sparefirraq 




Ld 


!r3,#. LOWBVTE. Spareflrray 




Call 


ZeroB ! ock 




Ld 


!rE,*.HlBVTE. SparePwt 




Ld 


! rF , * . LOWBVTE . SparePw 1 




Cal! 


Load_PassWord ; 1 oad SparePw 1 




Ld 


?r2,#.HIBYTE. FmtOffset 




Ld 


!r3,». LOWBVTE. FmtOffset 




Lde 


§!!r2,!r4 ; store offset value 




Incss 


! !r2 ' 




Lde 


§Hr2, !r5 ; store interleave value 




1 new 


! !r2 




Ld 


!rQ,*Ni! 




Ld 


.\r\ J *(. SprCount - SegPtr Array > 


iJS_Tbi_Lp2: 


Lde 


@! ir2, IrO 




Incw 


?!r-2 




Djnz 


!r1,i^S_Tbi_Lp2 




Ld 


!r0,«$00 




Ld 


!r4,*.HIBYTE. < SpareCheck - SprCount > 




Ld 


!r 5,*. LOWBVTE. < SpareCheck - SprCount 


i_S_Tb!J_p4: 


Lde 


e»!r2, !r0 




I new 


! !r2 




Deau 


! !r4 




Jr 


.Mz,lJS_TblJ.p4 




Ld 


Da ta_Ty pe , *Spr Tb f _Ty pe 




Ld 


!r5,*2 ; create two tables 




Cir 


ir8 


Create_Tbi : 


Call 


Spr 




Ld 


! r2, * . H i BVTE . Ge tNewSpare 




Ld 


> r-3 , # . LOWBVTE . GetNewSpare 




Call 


BankjCal 1 




Push 


!r8 ;save counter 




Ld 


!rF,!rO 




Ld 


? r& } #SprTb I -Type 




Or 


»r8,*Spare 




Ld 


!r2>.HlBYTE. fiddSpare 




Ld 


!r3,#. LOWBVTE. RddSpare 




Call 


BankJCal 1 




Pop 


!r8 




Inc 


!r8 ;go to next table 




Djnz 


!r5,Create_Tbl 




Ld 


!r2,*.HIBVTE. Hap-Table 




Ld 


!r3,«. LOWBVTE. Map_Table 




Ld 


!r1.#NbrSctrs 




Ld 


!r0,*0 


I _J1ap_Lp : 


Lde 


§Hr2, !rG 




lncu» 


!!r2 




fidd 


»rO,*f1ap_Dflt 




Cp 


!rO,«NbrSctrs 




Jr 


Lt,i_J1ap_Lp2 




Sub 


!rG,*Nbr-Sctrs 



IJ1ap_Lp2: Djnz Irl, i_J1ap_Lp 



Ld !rE,*.HIBVTE. SparePw2 
Ld !rF,*.LOWBYTE. SparePw2 
Cai I Load_PassWord 

Call UpDateJSprTb! 
Jp Bank_Ret 

.LSTOFF 

.00 External 
.LSTON 
. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: LoadJSprTbl 

> BANK 1 PROCEDURE 
> 

> This procedure loads the spare table from disk. The table is 

> found by a linear search of ail the spare blocks until a block 

> is found where both the Spare Table Identifier field is present 

> and the internal passwords and check byte are valid. 
> 

> Inputs: { none } 

> Outputs: { none } 

> fi i gor i thm : 
> 

> BEGIN 

> Seek_Type := Recess JO ff set 

> InterLeaveFactor := Find- Inter Leave 

> Found := False 

> Count := 

> i := Number f Spar eB locks 

> WHILE C i > > fiND C Count < 2 > DO 

> Seek< CnvrtLogicaK flulfi0_jn< i > > > 

> J := 

> Sector : = 

> WHILE H0T< Found > AND < j < MbrSctrs > DO 

> IF ReadCommon 

> THEN 

> IF < BlocklD = SprTbSID > RND 

> £ Password 1 = PassWord2 = PassWord ) RND 

> < CheckByte is valid > 

> THEN 

> Found := True 

> Count := Count + 1 

> IF < Count > 1 ) 

> THEN 

> IF ( SpareTab I e . RunNumber < ReadBuffer.RunNumber > 

> THEN NoveBlock< SpareTable, ReadBuffer ) 

> ELSE MoveBlockC SpareTable, ReadBuffer > 
ELSE 

> IF <■ RdErrCnt < 10 > 

> THEN 

> !1oveBiock< ReadBuffer, Buffer2 ) 

> IF < BlocklD = SprTbllD > RND 

> < Password! = PassWord2 = Password ) RND 

> (. CheckByte is vai id > 

> THEN 

> Found := True 



> Count := Count + 1 

> IF ( Count > 1 > 

> THEN 

> IF < SpareTab I e . RunNumber < ReadBuffer. RunNumber 

> THEN MoueBlockC SpareTab I e, ReadBuffer ) 

> ELSE MoveB I ock < SpareTab I e . ReadBu f f er > 

> j := j + 1 '. 

> Sector := < Sector + InterLeaueFactor > NOD NbrSctrs 

> i := i - 1 

> !F NOTC Found > 

> THEN Abort 

> ELSE 

> UpDateJSprTbl 

> Park 

> SlfTst_Resuit.NoSpareTable := False 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
. Page 
.FIN 



Load-JSprTb I 



Ld ! r5 , *76 ; i : = Number OfSpareB I ocks 
Clr !r4 ; SprTb i JFound := False 
Ld Da taType , *User_Type 



LJSprTbl_Lp: Call Ext_Push 
Ld !rGJr5 

Ld !r2,*.HIBYTE. MulRO-m 

Ld !rS\,#.LGUBS*TE. NulRO_jn 

Call Bank_Call 

Ld !r2,*.HIB¥TE. 6et_£yl_H_S 

Ld !r3,«.L0HBYTE. Get_£yl_R_S 

Cal ! BankJCall 

Ld Seek— Type, *ficcess 

Cal I Ne».M_Seek 

Cal i Ext_Pop 

Ld !r6,*NbrSctrs ; check the entire track 

Clr- Sector ; star ting with sector 



L_RdJLp: 



Push ir-4 

Push !r5 

Push !r6 

Ld ?r2,#.HIBVTE. RdBlkJJector 

Ld !r3,*.L0MBVTE. RdBlk_Uector 

Call BankJCall 

Pop ! r6 

Pop ! r5 

Pop !r4 

Jr Nz.ChkJSprTbl 



Ld !rO,RdErrCnt 

find !rO,*$OF ;mask unwanted status 

Cp frO^IO ; check for any successful reads 

Jr Ge ., L_SprTb I Jlor e 



Call 8uf2_To_RBuf ; get good data back into ReadBuffer 
Jr Chk_SprTbl 



LSprJb J Jlore : 



ChkJSprTbl: 



Inc 

Djnz 

Djnz 

Or 
Jr 

Call 

Ld 

Ld 
Call 
Jr 

Ld 

Ld 
Call 
Jr 

Ld 
Ld 
Lde 
! new 
Lde 



Sector 

!r5,L_Rd_Lp 

!r5,L_SprTbl_Lp 

!r4, !r4 ; check if any spare table found 
Nz,LJ3pr_End 



flbort 

ScrReg2,*.HIBVTE. 
ScrReg3,*.L0WBVTE. 
Chk_PassUord 
Z,LJSprTb!_Hore 



RBufferl+BlockID > 
: RBufferl+BJockiD > 



ScrReg2,*.HIBYTE. RBufferl 
ScrReg3,*.LOl4BVTE. RBufferl 
Chk_PassMord 
Z,L_SprTbl_More 

!r2,*.H!BYTE. < RBufferl+SpareCheck-SpareRrray ? 

!r3,#.LGUBYTE. < RBufferl+SpareCheck-SpareRrray ) 

! rO , ? ! ! r2 ; check poss i b I e check byte 

i!r2 

lr1 ,©!!r2 



I SprJIove : 



I Spr_lnc: 



brp 
Ld 
Ld 

Cai ! 

Srp 

Caii 

Jr 

Or 
Jr 

Srp 

Ld 

Ld 

Ld 

Cai! 

Ld 

Ld 

Ld 

Call 

Sub 

Sbc 

Sbc 

Sbc 

Srp 

Jr 

Bee 

Ld 

Ld 

Cat! 

inc 

Cp 

Jr 



*MrkJ3cr 

?K:,*.HIBVTE. RBufferl 
!rD,*.LOMBYTE. RBufferl 
SprChk2 

*Wrk_Sys 
Chk.JSpr2 
Z,L_JBprTbl_f1ore 

!r4, !r4 ; check for a SpareTabie already found 
Z,! Spr_T1ove 

*WrkJScr 

!r&,*.HIBVTE. SpareTmStrop 

!r7,#.L0UBVTE. SpareTmStmp 

!r4.,*ScrRegO 

Ld-TisStrnp 

!r6,*.HIBVTE. 

!r?,*.LOMBYTE 

!r4,*ScrRegC 

Ld_TmStmp 

!r3, IrF 

!r2, IrE 

!r1,!rD 

!r0, !rC 

*Mrk_JSys 

GeJ Spr_Jnc 

!r4 ; account for old, bogus spare table 

!r2,*.H!BS'TE. RBuf_To_JSpr 
!r3,#.L0UBVTE. RBuf_To^Spr 
Bank_Cai I 

!r4 ;note the arrival of a SpareTabie 

!r4,*2 ;see if that's all there is 
Nz,L-Sprfbl_J1ore 



RBu f f er 1 +SpareTniS tmp-Spar efir r ay > 
(. RBufferl+SpareTmStrnp-SpareRrray : 



pr JEnd : 



Cai 



UpBate_SprTbS 



find 



3 I f Ts t_Resu 1 1 1 *$FF-No_jSprTb I 



Ld !r2,*.HIBVTE. Park_Heads 

Ld !r3,«.L0MBYTE. Park-Heads 

Call Bank-Tail 

Jp Bank-Bet 

Ld_TmStmp: Ld !r5,*4 ; load 4 bytes 

Ld_TmJLp : Lde i g ! r4 , e ! ! r6 

Djnz !r5,Ld_Tm_Lp 

Ret 

.LSTOFF 

.00 External 

.L3T0N 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure : SprChkSum 
> 

> This procedure calculates a 16-bit checksum over the contents 

> of the spare table, and stores the sum within the spare table. 

> Inputs: { none } 
> 

> Outputs: { none > 
> 

> Side Effect: ScrRegl, ScrReg2 hold the calculated check byte on return 
> 

> Rlgorithm: 

> BEGIN 

> Sum := 

> SuinPtr := SpareRrray 

> FOR i :=■ 1 TO LengthC SpareRrray > DO 

> Sum := Sum + SpareRrray E i - 1 ] 

> SpareRrray . Checksum := Sum 

> END 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 

.pm 



SprChkSum: 



>prChk2: 



SprChk_Lp : 



DO 

LSTON 
Page 
FIN 



Ld 
Ld 

Ld 
Ld 

Cir 
Clr 

Lde 
Add 
fide 
I new 



internal 



lrC,*.HlBVTE. SpareRrray 
! rD, » . L0I4BVTE . SpareRrray 

!rE,*.HIBVTE. < SpareCheck - SpareRrray > 
!rF,*.LOMBVTE. < SpareCheck - SpareRrray > 

!rt 
!r2 

!rG,§!irC 
Ir2, SrO 
!r1>0 
MrC 



Decw ! ! r€ 

Jr Nz,SprChk_Lp 

Lde ?!!rC, !r1 ; store hi byte of checksum 

1 new ! ! rC 

Lde §!!rC,!r2 ; store low byte of checksum 

Jp Bank-Ret 

.LSTOFF 

.DO External 
.LSTOH 
. Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

Function: ChkJSprChk 

This function is responsible for verifying that the checksum 
residing in the spare table is correct. 

Inputs: { none } 

Outputs: 

ChkJSprChk : BOOLEAN { zero flag > 

' ft I gor i thm : 

BEGIN 
*■ TempSum := SpareTab S e . CheckSum 

► SpareTab I e . CheckSum := SprChkSum 
IF < TempSum = SpareTab I e . CheckSum ? 

► THEN ChkJSprChk := True 

► ELSE ChkJSprChk := False 
END 

► y y y :> y >>>>>>>>>>>> y >>>>>>>>>> > > > 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

. Page 

.FIN 

Chk_SprChk: 

Ld !r2,*.HIBVTE. SpareCheck 

Ld !r3,*.LOI4B¥TE. SpareCheck 

Lde !r0>!!r-2 

I new ! !r2 

Lde !r1,§!!r2 

Srp *WrkJScr 

Cal \ SprChkSum 

Srp *yrkJoys 

ChkjSpr2: Xor !rO,SerReg1 ;side effect: Ser-Reg2:3 hold new cheeky te 

■ Xor lrtj,ScrReg2 

Or !r0, !r1 

Clr !r0 

Jr Nz,ChkJSpr_End 

Ld !rQ,*1 

ChkJSpr_£nd: Or IrQ, !rO ; set zero flag 



Jp BankJRet 

.LSTOFF 

.DO External 

.LSTON 

.Page 

Function: Spr 



> 

> This function returns the logical block number associated 

> with the parameter passed in. Because there Qr& only two spare 

> blocks containing the spare table,, this function accepts 

> only ODD or EUEN input params. 
> 

> Inputs: 

> SpareTabielndex : BVTE { !rS > 
> 

> Outputs: 

> Spr : 3 BVTES { !rC:E } 

> Algorithm: 

> BEGIN 

> IF SpareTabielndex is EUEN 

> THEN Spr := SprBIkO 

> ELSE Spr := SprBlkt 

> END 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Paqe 
.FIN 



Spr: 



find !r6,«$01 ;IF SpareTabielndex is EUEN 

Jr Nz,Spr_Ddd 

Ld !rC,#HiSprG 

Ld !rD,*NidSprO 

Ld !rE,«LoSprO 

Jr SprJEnd 

SprJDdd: Ld !rC,#HiSpr1 

Ld JrD,*riidSpr1 

Ld !rE,*LoSprt 

SprJEnd: Jp Bank-Ret 

.LSTOFF 

.DO External 

.LSTON 

. Page 

* > 

;> Procedure: UpDate_SprTbl 

• ■> 

;> This procedure is responsible for updating the spare table 

;> to both of its locations on disk after a change has been mad« 
: > to the tab ! e . 



> 



Inputs: { none > 

Outputs: { none } 

ft I gor i thm : 

BEGiN 
SpareTmStamp := SpareTmStamp + 1 
SprChkSum 
ZeroB I ock 

MBufferl. Block ID := Password 
FOR i := TO 1 DO 

MoveBlock< i-lri teBuffer, SpareTable > 
TempCyl, TempHead, TempSector := GetJCyl_RJS< 

SrchSpTabK SpareTable, SpK i ) > ) 
IF table not found in SpareTable THEN floor t 
Seek< TempCyl, TempHead, TempSector > 
IF H0T< Mri t ever if y< Conservative > > 
THEM 
S F Recovery AND < Mr i teUer i f y . Error-Code = Ex_ReadErr > 
THEH EXIT UpDate_SprTbl 
ELSE 
ZeroB I ock 
MriteBlock 

I1oveBlock< Buffer 2, SpareTable ) 
SpareBiock< True, SpareTable, MM tejQp, Spr< i > > 

END 

>>>>>>> > > > > > > > > > > > >>>> > >>>> > > >>> 
LSTOFF 
.FIH 

.DO Internal 
.LSTQN 
.Paqe 
.FIH 



UpDate_SprTb 



UpDate_1 : 



UpBate. 



Ld ?r2,*.HIBVTE. SpareTmStamp 

Ld !r3,*.L0UBS'TE. SpareTmStamp 

Ld ir0,*WrkJSys+$C 

Ld !r1,*4 ;get 4 bytes 

Ldei g?r6,?!!r2 

D j nz I r 1 , UpDa te_ 1 

fidd !rF,*1 ; increment the count 

fide !r£,#0 

fide !rD,*0 

fide !rC,*Q 

Ld !rO,#Urk_JSys+$C 

Ld !r1.-*4 ;move 4 bytes 

Ld !r2>.HIBVTE. SpareTmStamp 

Ld !r3,*.LGUBVTE. SpareTmStamp 

Ldei e!!r2,e>r0 

Djnz !r1,UpDate_2 



Call SprChkSum 

Ld !r4 J> *2 ; write the table to the disk twice 
Clr !r5 ; spare table index 



SprB_Lp: 



Caii Spr_To_J4rBuf 



Ld !rE,*.HIBVTE. < WBufferl + BiockID > 

Ld !rF,#.LOMBVTE. ( MBufferl + Block ID ) 

Cal 5 Load_PassWord 

Ld IrS, !r-5 

Ca 1 ! Spr 

Ld Da ta_Ty pe , #Spr _Tb I -Type 

Ld !r2,*.HIBVTE. CnvrtLogical 

Ld !r3,#.L0UBVTE. CnurtLogical 

Call BankJCall 

Jr Nz,SprB_JSeek 

Call Abort 

SprB_Seek : Ld Seek_Type , *flccess JO f f se t 

Cal I Neu>_Seek 

Ld BlkStat,*SJBlock ;say that we've got a spare block 

Ld Bata_Type,*SprTbl_Type ;dltto 

Ld RdErrCnt,*10 ; prime the counter for write error 

Ld !r2.*.HIBVTE. UrUer JCommon 

Ld !r3,«.LQUBVTE. WrtterJCownon 

Call BankJCall 

Jr Hz.SprJIext 

Tin Excpt_Stat,*Recovery ; IF Recovery THEN ... 

Jr Nz t RcvrlSpr Tb ! 

Call Abort 

Rcvr _SprTb I :. Ld !r1,RdErrCnt ; check for noisy read 

find !r1.,*$0F 

Cp !rt".*Spr Thresh 

Jr Le^SprJNext 

Ld !r2,*.HlBVTE. UBufferl 

Ld !r3,*.LQWBVTE. MBufferl 

Ca I ! ZeroB I ock 

Ld !r2.*.HIBVTE. Mr JCommon 

Ld !r3>.L0MBVTE. Mr JCommon 

Call Bank-Call 

Ld !rS, Ir5 

Cal I Spr 

Ld !r-2,*.H!BVTE. SprEnter 

Ld !r3,#.L0WBVTE. SprEnter 

Call Bank-Call 

Jr Z,Rcvr_SprTbl 

SprJftext: Inc !r-5 ;do next table 

Djnz !r4,SprBJLp 

Jp Bank-Ret 

.LSTOFF 

.DO External 

.LSTON 

.Page 

:> Function: ChkJPassMord 



> This function is responsible for checking if the 32 bits 

> pointed to by the input parameter match with the controller's 

> 32 b i t password . 
> 

> Inputs: 

> PassHordPtr : PTR { ScrReg2:3 > 

> Outputs: 

> Chk_Passl4ord : BOOLEAN { zero flag } 
> 

> R I gor i tm : 
> 

> BEGIN 

> IF < <PassWordPtr> = PassUord > 

> THEN Chk_Passl4ord := True 

> ELSE Chk_PassUord := False 

> END 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Chk-PassMord: 



Chk_P_Lp: 



.LSTOFF 






.FIN 






.DO 


Internal 




.LSTON 






. Paqe 






.FIN 






Srp 


•MrkJScr 




Ld 


!r4,#4 ; check 4 bytes 




Ld 


!rE,*.HIBYTE. PassMord 




Ld 


! rF, « . LOWBVTE . Password 




Ldc 


!rO,§HrE ;get a bgte of 


the password 


1 new 


!!rE 




Lde 


Ir1,?!!r2 ;get a byte of 


test string 


incui 


II r2 




Cp 


IrO, !r1 




Cir 


IrO j assume fai lure 




Jr 


Nz,C-hk_PJEnd 




Djnz 


!r4,Chk_P_Lp 





Ld IrO «1 



Chk-PJEnd: 



Or 


IrO, IrO ; 


set 


flags 


Srp 


*Urk_Sys 






Jp 


Bank_Ret 






.LSTOFF 








.DO 


External 






.LSTON 








.Page 








>>>>>>>>> 


>>>>>>>>>: 


•> 





Procedure: Load_PassWord 

This procedure loads the 32-bit password into the memory 
location pointed to by the input parameter. 

Inputs: 

Destination : PTR { ! !rE } 

Outputs: { none } 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTOH 
.Page 
.FIN 



Load_PassWord: 



Lpw_Lp : 



SSSSSSfSS 



Ld !r2,*.HIBVTE. Password 
Ld !r3,*.L0NBVTE. Password 
Ld \r\ j, #4 ;mooe 4 bytes 

Ldc !r-G,@Hr-2 

Lde glfrE, !rG 

I new ! ! r2 

I new ! I rE 

Djnz ?r1,Lpw_Lp 

Jp Bank_Ret 

.LSTOFF 

.00 External 
. LSTOH 
.Page 
>>>>>>>>>>>>>>>>>>>>>>> 



Procedure: SpareCount 

This procedure is responsible for incrementing /decrementing 
the Spare /Bad Block count, if the total count exceeds 
NaxSpares-5 then a status bit is set for this command only. 

Inputs: 



Command : 2 BITS { !rO/Bits 


1:0 } 


Outputs: { none } 




fl 1 gor i thm : 




BEGIN 
CASE Command OF 

: Increment the spare count 

1 : Increment the bad block count 

2 : Decrement the bad block count 





OTHERWISE Abort 

IF < SpareCount+BadBlockCount >= MaxSpares-5 ) 
THEN 

Excpt JStatus . SprTb I J4arn := True 
SetStatusC SprBlk-Harn > 
END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO internal 
.LSTON 
.Page 
.FIN 



SpareCount : 



Ld !r1,!rO ;get command 

find !r1,*$FC ; check for illegal command 

Jr Z,SprCnt_1 



Ld 
Call 



!r-9.?r-0 
Abort 



SprCnt_1 



Ld !r2,«.HIBVTE. SprCount 

Ld !r3,*.L0UBVTE. SprCount 

Lde ! r 1 , @ ! ! r2 ; assume spare coun t i ncr emen t 

Inc !r1!!r-2 ;get bad block count 

Cp !rG,*01 j check for i ncJBadB I ock 

Jr Z,SjC_Badlnc 



S_C_Badlnc: 
S_C_BadEnd: 



S_C_£pare : 
SprCnt JEnd : 
SprCnt JRet : 



I nc ! r 1 

Lde 6!!r2, !r1 ; store new count 

\}r SprCnt JEnd 

!r1 ; store new count 
Ca I I ChkJSprCnt 
Jp Bank-Ret 



ChkJSprCnt: Ld !r2,*.HIBYTE. SprCount 

Ld !r3,*.L0WBVTE. SprCount 

Lde !rQ,(M!r2 ;get spare count 

Incw ! !r2 

Lde !r1,eMr2 ;get bad co Lt,ChkJ5pr_Ret 

Or Excpt_Stat,*SprTb I -Warn 

Cal ! SSjSprUarn 



Chk_Spr_Bet: 



Jp 



